home *** CD-ROM | disk | FTP | other *** search
- %!
- %%VMusage: 0 0
- %%VMlocation: global
- %%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %% %%
- %% FontSetInit: the procedures used when defining CFF fonts. %%
- %% StartData just reads in the CFF string and then calls the %%
- %% definefontset operator. %%
- %% %%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
- /FontSetInit <<
-
- /StartData {
- false countexecstack array execstack {
- /@findresource eq {pop true exit} if
- } forall
- 1 index 100000 gt and dup 4 1 roll {
- pop currentfile
- } {
- string currentfile exch readstring pop
- } ifelse
- systemdict begin definefontset end
- /FontSet defineresource pop
- {currentfile closefile} if
- end
- } bind
-
- >> /ProcSet defineresource
-
-